home *** CD-ROM | disk | FTP | other *** search
/ Internet 53 / INTERNET53.iso / pc / software / windows / building / ace expert / ae301.exe / %MAINDIR% / EScripts / jscript / Ban1.scr next >
Encoding:
Text File  |  1999-02-23  |  530 b   |  19 lines
  1. <SCRIPT LANGUAGE="JavaScript">
  2. <!-- begin script
  3. var posBan1=0, ban1, delayBan1, msgBan1;
  4. function banniere1(delay) {
  5.   delayBan1 = delay;
  6.   if (posBan1 >= msgBan1.length)
  7.     posBan1 = 0;
  8.   else if (posBan1 == 0) {
  9.     msgBan1 = '        ' + msgBan1;
  10.     while (msgBan1.length < 128)
  11.       msgBan1 += '        ' + msgBan1;
  12.   }
  13.   document.formBan1.Fbanniere1.value = msgBan1.substring(posBan1,posBan1+msgBan1.length);
  14.   posBan1++;
  15.   ban1 = setTimeout("banniere1(delayBan1)",delay);
  16. }
  17. // end script -->
  18. </SCRIPT>
  19.